home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU11.ARC / HEX-DECIMAL CONV (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.1 KB  |  59 lines
  1. 5 POKE53280,0:POKE53281,0:PRINT"[155]"
  2. 10 DIMH$(15):FORI=0TO15:READH$(I):NEXTI
  3. 20 DATA0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F
  4. 30 PRINT"[147]"TAB(5)CHR$(14);"[158] [200][197][216] [153]- [150][196][197][195] [153]- [159][194][201][206] [153]- [195][207][206][214][197][210][212][197][210]"
  5. 35 PRINTTAB(5)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  6. 40 PRINTTAB(5)"[155][215]RITTEN BY: [210].[196]. [211]WIFT, [208].[197]NG.":PRINTTAB(12);"1983 - 03 - 27"
  7. 50 PRINTTAB(5)"[155]1[146] - [158][200]EXADECIMAL TO [150][196]ECIMAL"
  8. 60 PRINTTAB(5)"[155]2[146] - [150][196]ECIMAL TO [158][200]EXADECIMAL"
  9. 70 PRINTTAB(5)"[155]3[146] - [158][200]EXADECIMAL TO [159][194]INARY"
  10. 80 PRINTTAB(5)"[155]4[146] - [159][194]INARY TO [158][200]EXADECIMAL"
  11. 90 PRINTTAB(5)"[155]5[146] - [150][196]ECIMAL TO [159][194]INARY"
  12. 100 PRINTTAB(5)"[155]6[146] - [159][194]INARY TO [150][196]ECIMAL"
  13. 110 PRINTTAB(5)"[155]7[146] - [153] [210]ETURN TO [211]ECTOR [197]DITOR[146]"
  14. 120 PRINTTAB(5)"[155][215]HEN IN CONVERTING MODE, PRESS"
  15. 130 PRINTTAB(8)"[210][197][212][213][210][206][146] TO RETURN TO [205][197][206][213]"
  16. 140 GETA$:IFA$=""THEN140
  17. 150 IFA$="1"THENPRINT"[147]"TAB(11)CHR$(142);"[158]HEXADECIMAL [155]TO [150]DECIMAL":GOTO1000
  18. 160 IFA$="2"THENPRINT"[147]"TAB(11)CHR$(142);"[150]DECIMAL [155]TO [158]HEXADECIMAL":GOTO2000
  19. 170 IFA$="3"THENPRINT"[147]"TAB(11)CHR$(142);"[158]HEXADECIMAL [155]TO [159]BINARY":GOTO3000
  20. 180 IFA$="4"THENPRINT"[147]"TAB(11)CHR$(142);"[159]BINARY [155]TO [158]HEXADECIMAL":GOTO4000
  21. 190 IFA$="5"THENPRINT"[147]"TAB(11)CHR$(142);"[150]DECIMAL [155]TO [159]BINARY":GOTO5000
  22. 200 IFA$="6"THENPRINT"[147]"TAB(11)CHR$(142);"[159]BINARY [155]TO [150]DECIMAL":GOTO6000
  23. 210 IFA$="7"THENPRINTCHR$(142);"[147][155]":GOTO7000
  24. 220 GOTO140
  25. 1000 A$="":INPUT"           [155]INPUT HEX[158]";A$:IFA$=""THEN30
  26. 1010 IFLEN(A$)>4THEN30
  27. 1020 GOSUB1030:GOTO1070
  28. 1030 D=0:FORI=1TOLEN(A$):T$=MID$(A$,LEN(A$)-I+1,1)
  29. 1040 FORJ=0TO15:IFT$=H$(J)THEN1060
  30. 1050 NEXTJ:GOTO30
  31. 1060 D=D+(16^(I-1))*J:NEXTI:D=INT(D):RETURN
  32. 1070 PRINTTAB(29);"[145]";INT(D);"":GOTO1000
  33. 2000 D=-1:INPUT"[155]           INPUT DEC[158]";D:D=INT(D):IFD<0ORD>65535THEN30
  34. 2010 GOSUB2020:GOTO2060
  35. 2020 T=INT(D/4096):A$=H$(T):D=INT(D-T*4096)
  36. 2030 T=INT(D/256):A$=A$+H$(T):D=INT(D-T*256)
  37. 2040 T=INT(D/16):A$=A$+H$(T):D=INT(D-T*16)
  38. 2050 A$=A$+H$(D):RETURN
  39. 2060 PRINTTAB(29);"[145]";A$;"":GOTO2000
  40. 3000 A$="":INPUT"[155]         INPUT HEX[158]";A$:IFA$=""THEN30
  41. 3010 IFLEN(A$)>2THEN30
  42. 3020 GOSUB1030:GOSUB3040
  43. 3030 PRINTTAB(24);"[145]";A$;"":GOTO3000
  44. 3040 A$="":FORI=0TO7:IF(DAND2^I)THEN3060
  45. 3050 A$="0"+A$:NEXT:RETURN
  46. 3060 A$="1"+A$:NEXT:RETURN
  47. 4000 A$="":INPUT"[155]       INPUT BIN[158]";A$:IFA$=""ORLEN(A$)>8THEN30
  48. 4010 GOSUB4020:A$="":GOSUB2040:PRINTTAB(30);"[145]";A$;"":GOTO4000
  49. 4020 D=0:FORI=1TOLEN(A$):IFMID$(A$,LEN(A$)-I+1,1)="0"THENNEXT:D=INT(D):RETURN
  50. 4030 IFMID$(A$,LEN(A$)-I+1,1)="1"THEND=D+2^(I-1):NEXT:D=INT(D):RETURN
  51. 4040 GOTO30
  52. 5000 D=-1:INPUT"[155]       INPUT DEC[158]";D:D=INT(D):IFD<0ORD>255THEN30THEN30
  53. 5010 GOSUB3040:PRINTTAB(25);"[145]";A$;"":GOTO5000
  54. 6000 A$="":INPUT"[155]       INPUT BIN[158]";A$:IFA$=""ORLEN(A$)>8THEN30
  55. 6010 GOSUB4020:PRINTTAB(28);"[145]";D;"":GOTO6000
  56. 7000 LOAD"0:\",8,1
  57. 7010 POKE198,2:POKE631,13:POKE632,13
  58. 7020 END
  59.